object ToothDate: TToothDate
  Left = 200
  Top = 99
  BorderStyle = bsDialog
  Caption = 'Tooth Date'
  ClientHeight = 112
  ClientWidth = 266
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  TextHeight = 16
  object Label1: TLabel
    Left = 32
    Top = 24
    Width = 41
    Height = 19
    Caption = 'Date:'
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Date: TMaskEdit
    Left = 80
    Top = 24
    Width = 121
    Height = 24
    EditMask = '!99-99-00;1;_'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 8
    ParentFont = False
    TabOrder = 0
    Text = '  -  -  '
  end
  object OKBtn: TBitBtn
    Left = 56
    Top = 64
    Width = 93
    Height = 31
    Caption = 'Ok'
    Default = True
    Font.Color = clGreen
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ModalResult = 1
    ParentFont = False
    TabOrder = 1
    OnClick = OKBtnClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000CE0E0000D80E00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555205555555555555222055555555555522205555
      5555555222220555555555222222055555555722052220555555720555522055
      5555555555522205555555555555220555555555555552205555555555555572
      0555555555555557205555555555555552205555555555555555}
    Margin = 8
    Spacing = -1
  end
  object CancelBtn: TBitBtn
    Left = 160
    Top = 64
    Width = 93
    Height = 31
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = CancelBtnClick
    Kind = bkCancel
    Margin = 2
    Spacing = -1
  end
  object HelpBtn: TBitBtn
    Left = 8
    Top = 64
    Width = 25
    Height = 31
    Caption = ' '
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = HelpBtnClick
    Kind = bkHelp
    Margin = 2
    Spacing = -1
  end
end